home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 7 / CorelDraw 7 cd-key DR7-9868904M35.iso / draw / scripts / presets6 / sphere.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.4 KB  |  41 lines
  1. REM 
  2. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  3.  
  4. WITHOBJECT "CorelDraw.Automation.7"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyFountainFill 1, -23, 24, 900, 256, 0, 3, 50
  10.     .SetFountainFillColor 0, 2, 0, 0, 0, 100
  11.     .SetFountainFillColor 24, 2, 40, 40, 0, 60
  12.     .SetFountainFillColor 44, 2, 60, 40, 0, 40
  13.     .SetFountainFillColor 62, 2, 100, 100, 0, 0
  14.     .SetFountainFillColor 100, 2, 0, 0, 0, 0
  15.     .RecorderSelectObjectByIndex TRUE, 1
  16.     .DuplicateObject 0, 0
  17.     .RecorderSelectObjectByIndex TRUE, 2
  18.     .StretchObject 1, 1, 0.204252, 1, FALSE, FALSE, 2
  19.     .RecorderSelectObjectByIndex TRUE, 2
  20.     .SkewObject -78700000, 0, 6
  21.     .RecorderSelectObjectByIndex TRUE, 2
  22.     .ApplyUniformFillColor 2, 0, 0, 0, 10
  23.     .RecorderSelectObjectByIndex TRUE, 2
  24.     .OrderToBack 
  25.     .RecorderSelectObjectByIndex TRUE, 2
  26.     .SkewObject 0, -3700000, 4
  27.     .RecorderSelectObjectByIndex TRUE, 2
  28.     .MoveObject 0, 8381
  29.     .RecorderSelectObjectByIndex TRUE, 2
  30.     .StretchObject 0.814275, 1, 1, 1, FALSE, FALSE, 4
  31.     .RecorderSelectObjectByIndex TRUE, 2
  32.     .SkewObject 0, -2500000, 4
  33.     .RecorderSelectObjectByIndex TRUE, 2
  34.     .SkewObject 0, 900000, 4
  35.     .RecorderSelectPreselectedObjects TRUE
  36.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  37.     .Group 
  38.     .ResumePainting 
  39.     .EndOfRecording 
  40. END WITHOBJECT
  41.